home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / intg.dia.ref < prev    next >
Text File  |  1999-09-16  |  335b  |  26 lines
  1.  
  2. // intg test
  3.  
  4. deff('[y]=f(x)','y=x*sin(30*x)/sqrt(1-((x/(2*%pi))^2))')
  5.  
  6. exact=-2.5432596188;
  7.  
  8. x=abs(exact-intg(0,2*%pi,f));
  9.  
  10. if x>1.e-8 then  bugmes();quit;end;
  11.  
  12. //
  13.  
  14. comp(f);
  15.  
  16. x=abs(exact-intg(0,2*%pi,f));
  17.  
  18. if x>1.e-6 then  bugmes();quit;end;
  19.  
  20. //
  21.  
  22. x=abs(exact-intg(0,2*%pi,'toto'));
  23.  
  24. if x>1.e-6 then  bugmes();quit;end;
  25.  
  26.